<script>on fillIndex n-- get card names and put them into cd field "Index" -- ^z -- 92.07.20-- then delete first "n" characters of each line, to remove redundancyrepeatgo nextif the number of this card is 1 then exit repeatif the short name of this bg is "Shakespeare" then ¬put field "Title" & return after tmpend repeatput tmp into cd field "Index"repeat with i = 2 to the number of lines in cd field "Index"delete char 1 to n of line i of cd field "Index"end repeatend fillIndex</script>